home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / findsame.s < prev    next >
Text File  |  1997-01-31  |  437b  |  36 lines
  1. start: dc.l 0
  2. end: dc.l 0
  3. data: dc.l 0
  4. hof: dc.w 0
  5.  
  6.  lea start(pc),a0
  7.  move.l (a0),a1
  8.  move.l 4(a0),a2
  9.  move.l 8(a0),a3
  10.  moveq #0,d7
  11.  move.w 12(a0),d7
  12.  move.l #0,d2
  13.  move.l #-1,d3
  14.  
  15. findlop:
  16.  move.l a1,a4
  17.  move.l a3,a5
  18.  move.w d7,d0
  19.  asr.w #2,d0
  20.  subq #1,d0
  21. tstlop:
  22.  move.l (a4)+,d1
  23.  cmp.l (a5)+,d1
  24.  bne.s notsame
  25.  dbra d0,tstlop
  26.  move.l d2,(a0)
  27.  rts
  28.  
  29. notsame:
  30.  add.l d7,d2
  31.  adda.w d7,a1
  32.  cmp.l a2,a1
  33.  blt.s findlop
  34.  move.l d3,(a0)
  35.  rts
  36.